Public Class JsonScalarConverter As AbstractJsonConverter

Code Sample

• %REM
  The following code is used in ser-10.txt. Converts to strings and numerics for firstName, lastName and age.
  %END REM
  Dim json as String
  Dim helper as New JsonConversionHelper()
  Dim jd as New Person()
  jd.firstName = "John"
  jd.lastName = "Doe"
  jd.age = 42
  json = helper.withScalarConverter("firstName")._
      withScalarConverter("lastName")._
      withScalarConverter("age")
      toJsonString(jd, false)

Methods Detail

• fromJson

  Public Function fromJson(source As JsonObject) As Variant
  Overridden function, uses scalar value from JSON object. The fromJson method is called from AbstractJsonConverter's deserialize method.
  idx	Argument	Data Type	Attributes	Comments
  1	source	JsonObject		JSON object to deserialize from
  Code Sample
  %REM The following code is an abbreviated version of code in AbstractJsonConverter.deserialize. It calls the derived class's fromJson function and passes the result to AbstractJsonConverter.deserializeToProperty %END REM Sub deserialize(holder as JsonConversionHolder, source as JsonObject) Call deserializeToProperty(holder, fromJson(source), source.label) End Sub

• isReturnObj

  Public Function isReturnObj() As Boolean
  Overridden function, always returning False for this Class
  Code Sample
  %REM The actual code for this function %END REM Function isReturnObj As Boolean isReturnObj = False End Function

• toJson

  Public Function toJson(source As Variant) As Variant
  Overridden function. The toJson method is called from AbstractJsonConverter's serialize method.
  idx	Argument	Data Type	Attributes	Comments
  1	source	Variant		Variant containing the property to be serialized
  Code Sample
  %REM The following code is an abbreviated version of code in AbstractJsonConverter.serialize. It extracts a property value, passes it to the derived class's toJson function and passes the result to AbstractJsonConverter.serializeToProperty %END REM Sub serialize(source as Variant, target as JsonObject) Dim propName as String Dim execString as String propName = Me.labelName Set samsaraObj = source execString = |If (isObject(samsaraObj.| & propName & |)) Then Set samsaraVal = samsaraObj.| & propName & | Else samsaraVal = samsaraObj.| & propName & | End If| Call serializeToProperty(toJson(samsaraVal), target) End Sub

• New

  Public Sub New()